Adding string instance to EnvVarReader useful for FilePath type in lo…

…gger.
digitallyinduced · Nov 29, 2022 · 68c11b5 · 68c11b5
1 parent d33879c
commit 68c11b5
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/IHP/FrameworkConfig.hs b/IHP/FrameworkConfig.hs
@@ -236,6 +236,9 @@ instance EnvVarReader Int where
 instance EnvVarReader Text where
     envStringToValue string = Right (cs string)
 
+instance EnvVarReader String where
+    envStringToValue string = Right (cs string)
+
 instance EnvVarReader ByteString where
     envStringToValue string = Right string
 
@@ -555,4 +558,4 @@ instance Exception ExceptionWithCallStack
 configIO :: (MonadIO monad, HasCallStack) => IO result -> monad result
 configIO action = liftIO (action `catch` wrapWithCallStack)
     where
-        wrapWithCallStack exception = throwIO (ExceptionWithCallStack Stack.callStack exception)
+        wrapWithCallStack exception = throwIO (ExceptionWithCallStack Stack.callStack exception)