Changeset 6793 for src/Pugs/Types

Timestamp:

09/06/05 14:11:41 (3 years ago)

Author:

autrijus

Message:

* massive retab for src/, expanding all tabs into spaces,

except for the generated PIL1.hs.

Files:

• src/Pugs/Types/Scalar.hs (modified) (1 diff)

src/Pugs/Types/Scalar.hs

@@ -34 +34 @@
     scalar_fetch _ = do
         str <- liftIO $ getCurrentDirectory
-        return $ VStr str
+        return $ VStr str
     scalar_store _ val = do
         str <- fromVal val
-        tryIO () $ setCurrentDirectory str
+        tryIO () $ setCurrentDirectory str
     scalar_const = const Nothing