Add some basic error handling

src/Yore/Log.hs

@@ -1,4 +1,4 @@
-module Yore.Log (info) where
+module Yore.Log (Yore.Log.error, info) where
 
 import Data.Time (getZonedTime)
 import GHC.Stack (HasCallStack, SrcLoc (..), callStack, getCallStack)
@@ -7,6 +7,9 @@ import Text.Printf (printf)
 info :: (HasCallStack) => String -> IO ()
 info = doLog "INF"
 
+error :: (HasCallStack) => String -> IO ()
+error = doLog "ERR"
+
 doLog :: (HasCallStack) => String -> String -> IO ()
 doLog level msg = do
   now <- getZonedTime