From 77ff3088b9c8ff217c6ed6fb9093a5aabb2ea3ca Mon Sep 17 00:00:00 2001
From: Ben Sima <ben@bsima.me>
Date: Wed, 27 Mar 2019 09:25:12 -0700
Subject: working miso app

structure is in place, need to add styles and logic
---
 lore/Alpha.hs | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)
 create mode 100644 lore/Alpha.hs

(limited to 'lore/Alpha.hs')

diff --git a/lore/Alpha.hs b/lore/Alpha.hs
new file mode 100644
index 0000000..b126241
--- /dev/null
+++ b/lore/Alpha.hs
@@ -0,0 +1,18 @@
+{-# LANGUAGE NoImplicitPrelude #-}
+module Alpha (
+  -- * General functions
+    (/@)
+  -- * Debugging tools
+  , say
+  ) where
+
+import Protolude
+import Data.String
+
+-- | Debugging printf
+say :: String -> IO ()
+say msg = putStrLn msg
+
+-- | Alias for map, fmap, <$>
+(/@) :: Functor f => (a -> b) -> f a -> f b
+(/@) = Protolude.fmap
-- 
cgit v1.2.3