Changeset 1458

Timestamp:

04/03/05 06:01:43 (4 years ago)

Author:

autrijus

svk:copy_cache_prev:

2941

Message:

* add newlines to all .hs files

Location:

src

Files:

• Bind.hs (modified) (1 diff)
• Compile.hs (modified) (1 diff)
• Compile/Haskell.hs (modified) (1 diff)
• Compile/Parrot.hs (modified) (1 diff)
• Compile/Parrot/AST.hs (modified) (1 diff)
• Compile/Pugs.hs (modified) (1 diff)
• Cont.hs (modified) (1 diff)
• Context.hs (modified) (1 diff)
• Embed.hs (modified) (1 diff)
• Embed/Perl5.hs (modified) (1 diff)
• Eval.hs (modified) (1 diff)
• External.hs (modified) (1 diff)
• External/Haskell.hs (modified) (1 diff)
• External/Haskell/DynamicLoader.hs (modified) (1 diff)
• External/Haskell/NameLoader.hs (modified) (1 diff)
• External/Haskell/PathLoader.hs (modified) (1 diff)
• Help.hs (modified) (1 diff)
• IMC.hs (modified) (1 diff)
• IMC/Lexer.hs (modified) (1 diff)
• Internals.hs (modified) (1 diff)
• Junc.hs (modified) (1 diff)
• Lexer.hs (modified) (1 diff)
• Main.hs (modified) (1 diff)
• Monads.hs (modified) (1 diff)
• Parser.hs (modified) (1 diff)
• Posix.hs (modified) (1 diff)
• Prim.hs (modified) (1 diff)
• RRegex.hs (modified) (1 diff)
• RRegex/PCRE.hs (modified) (1 diff)
• Rule/Char.hs (modified) (1 diff)
• Rule/Combinator.hs (modified) (1 diff)
• Rule/Error.hs (modified) (1 diff)
• Rule/Expr.hs (modified) (1 diff)
• Rule/Language.hs (modified) (1 diff)
• Rule/Perm.hs (modified) (1 diff)
• Rule/Pos.hs (modified) (1 diff)
• Rule/Prim.hs (modified) (1 diff)
• Run/Args.hs (modified) (1 diff)
• Shell.hs (modified) (1 diff)
• Unicode.hs (modified) (1 diff)

src/Bind.hs

@@ -158 +158 @@
         , subParams   = newParams
         }
+

src/Compile.hs

@@ -19 +19 @@
 compile "Parrot" = genPIR
 compile s = \_ -> error $ "Cannot compile to " ++ s
+

src/Compile/Haskell.hs

@@ -39 +39 @@
 
 #endif
+

src/Compile/Parrot.hs

@@ -141 +141 @@
 showText :: (Show a) => a -> Doc
 showText = text . show
+

src/Compile/Parrot/AST.hs

@@ -12 +12 @@
     , noteUpContext :: ParrotContext
     }
+

src/Compile/Pugs.hs

@@ -14 +14 @@
     , "mainCC = runAST $ " ++ show exp
     ]
+

src/Cont.hs

@@ -45 +45 @@
 resetT :: Monad m => ContT a m a -> ContT r m a
 resetT e = C.lift $ e `runContT` return
+

src/Context.hs

@@ -111 +111 @@
     , Node "Trait"
         [ Node "PkgTrait" [] ] ]
+

src/Embed.hs

@@ -17 +17 @@
 -- import Embed.Parrot
 -- import Embed.Ponie
+

src/Embed/Perl5.hs

@@ -67 +67 @@
 
 #endif
+

src/Eval.hs

@@ -734 +734 @@
     | otherwise
     = Nothing
+

src/External.hs

@@ -51 +51 @@
                    , subFun      = (Prim fun)
                    }
+

src/External/Haskell.hs

@@ -69 +69 @@
 
 #endif
+

src/External/Haskell/DynamicLoader.hs

@@ -372 +372 @@
     encode_ch '%'  = "zv"
     encode_ch c    = 'z' : shows (ord c) "U"
+

src/External/Haskell/NameLoader.hs

@@ -360 +360 @@
                    Just val -> return val
                    Nothing  -> return val
+

src/External/Haskell/PathLoader.hs

@@ -357 +357 @@
                    Just val -> return val
                    Nothing  -> return val
+

src/Help.hs

@@ -94 +94 @@
     , "Type :h for help"
     ]
+

src/IMC.hs

@@ -26 +26 @@
     prog' <- runFoo
     $( imcX prog' ) -- how to get str into prog?
+

src/IMC/Lexer.hs

@@ -50 +50 @@
 ws              = oneOf "\t\f\r\x1A "
 sp              = char ' '
+

src/Internals.hs

@@ -156 +156 @@
     where
     bytes = map (toEnum . ord) str
+

src/Junc.hs

@@ -119 +119 @@
         | otherwise = opEval emptyEnv $ "? " ++ out ++ "( " ++ b ++ ", " ++ a ++ ", " ++ c ++ ")"
 -}
+

src/Lexer.hs

@@ -334 +334 @@
       splitOp (Postfix op) (rassoc,lassoc,nassoc,prefix,postfix)
         = (rassoc,lassoc,nassoc,prefix,op:postfix)
-      
+

src/Main.hs

@@ -239 +239 @@
 printConfigInfo (item:_) = do
         putStrLn $ createConfigLine item
+

src/Monads.hs

@@ -294 +294 @@
 
 returnScope = callerReturn 0 . VStr
+

src/Parser.hs

@@ -992 +992 @@
 retSyn sym args = do
     return $ Syn sym args
+

src/Posix.hs

@@ -72 +72 @@
         argv <- peek p_argv
         peekCString =<< peekElemOff argv 0
+

src/Prim.hs

@@ -1010 +1010 @@
 \\n   Bool      pre     yield   (Thread)\
 \\n"
+

src/RRegex.hs

@@ -84 +84 @@
 matchRegexAll p str = fmap f (str =~~ p) where
     f MR { mrBefore = b, mrAfter = a, mrSubList = sl, mrMatch = m } = (b,m,a,sl)
+

src/RRegex/PCRE.hs

@@ -186 +186 @@
 pcreInfoLastliteral =  6
 -}
+

src/Rule/Char.hs

@@ -76 +76 @@
 string :: String -> CharParser st String
 string s            = tokens show updatePosString s
+

src/Rule/Combinator.hs

@@ -153 +153 @@
                         ; return x
                         }
+

src/Rule/Error.hs

@@ -162 +162 @@
       
       clean             = nub . filter (not.null)                  
-      
+

src/Rule/Expr.hs

@@ -121 +121 @@
       splitOp (Postfix op) (rassoc,lassoc,nassoc,prefix,postfix)
         = (rassoc,lassoc,nassoc,prefix,op:postfix)
-      
+

src/Rule/Language.hs

@@ -124 +124 @@
                 }
 
-                                

src/Rule/Perm.hs

@@ -123 +123 @@
     mapBranch f (Branch perm p)
       = Branch (mapPerms (f.) perm) p
+

src/Rule/Pos.hs

@@ -78 +78 @@
   show (SourcePos name line column) =
     unwords ["SourcePos", show name, show line, show column]
+

src/Rule/Prim.hs

@@ -456 +456 @@
        in walk1 s input)
 
-

src/Run/Args.hs

@@ -135 +135 @@
     combined = a++"\n"++b
 joinDashE (x:xs) =  [ x ] ++ joinDashE xs
+

src/Shell.hs

@@ -88 +88 @@
 addHistory _ = return ()
 #endif 
+

src/Unicode.hs

@@ -272 +272 @@
 foreign import ccall unsafe "u_gencat"
   wgencat :: CInt -> Int
+