summaryrefslogtreecommitdiff
path: root/lore/Alpha.hs
diff options
context:
space:
mode:
authorBen Sima <ben@bsima.me>2019-03-27 09:25:12 -0700
committerBen Sima <ben@bsima.me>2019-03-27 09:25:35 -0700
commit77ff3088b9c8ff217c6ed6fb9093a5aabb2ea3ca (patch)
tree2ce318b75ed5b1d01827fca8a7a373f7888f0417 /lore/Alpha.hs
parentcfd213917c766c91f4c5fc7fdc91c2ca0ea13c26 (diff)
working miso app
structure is in place, need to add styles and logic
Diffstat (limited to 'lore/Alpha.hs')
-rw-r--r--lore/Alpha.hs18
1 files changed, 18 insertions, 0 deletions
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