2020-06-27 15:06:59 +02:00
|
|
|
module Main where
|
|
|
|
|
|
|
|
|
|
import Data.Function ((&))
|
|
|
|
|
import qualified Data.List as L
|
|
|
|
|
|
|
|
|
|
-- | Run this to export the grocery list.
|
|
|
|
|
main :: IO ()
|
|
|
|
|
main = do
|
2020-07-01 11:45:28 +02:00
|
|
|
x <- readFile "./list.org"
|
2020-06-27 15:06:59 +02:00
|
|
|
x & lines & filter (not . L.isPrefixOf "- 0x") & unlines & putStrLn
|
|
|
|
|
pure ()
|
