Add export script for groceries

At this point, I may be taking this idea too far, but what the heck?

1 files changed, 11 insertions, 0 deletions

diff --git a/scratch/groceries/export.hs b/scratch/groceries/export.hs
new file mode 100644
index 000000000000..5e2cce2237ee
--- /dev/null
+++ b/scratch/groceries/export.hs
@@ -0,0 +1,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 ()