about summary refs log tree commit diff
path: root/scratch/groceries/export.hs
blob: 5e2cce2237eef1b31956b446b8ae4931744f7af6 (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
module Main where

import Data.Function ((&))
import qualified Data.List as L

-- | Run this to export the grocery list.
main :: IO ()
main = do
  x <- readFile "./list.txt"
  x & lines & filter (not . L.isPrefixOf "- 0x") & unlines & putStrLn
  pure ()