View test.py
print 5 |
View MainCLI.hs
module Main where | |
import System.Environment(getArgs) | |
import qualified Prime | |
main :: IO () | |
main = do | |
a <- getArgs | |
Prime.main (a !! 0) (read (a !! 1)) |
View LibTest.hs
{-# LANGUAGE TemplateHaskell #-} | |
module LibTest where | |
import Language.Haskell.TH.Ppr (pprint) | |
import Language.Haskell.TH.Syntax (runQ, Lit(StringL), reify) | |
import Language.Haskell.TH.Lib (litE) | |
import Monad (liftM) | |
import Data.Typeable (typeOf) | |
import Language.Haskell.TH.Syntax (Q, Exp) |
View H.hs
{-# LANGUAGE TemplateHaskell #-} | |
module H where | |
import Language.Haskell.TH | |
f = [42] | |
$(do | |
i <- reify (mkName "f") | |
runIO (print i) |
View main.rb
def showA0() | |
puts self.class | |
puts @a | |
end | |
class B | |
def showA(t) | |
@a = t | |
showA0() | |
end |
View AccessorTemplateExpr.hs
{-# LANGUAGE TemplateHaskell, ViewPatterns #-} | |
module AccessorTemplateExpr where | |
import Language.Haskell.TH (reify, runIO, Info(TyConI), Dec(DataD), ppr, Con(NormalC, RecC), newName, | |
tupE, appE, lamE, varE, conE, | |
conP, varP, wildP) | |
import Data.Accessor.Basic (fromSetGet) | |
makeAccessors typeName = do | |
info <- reify typeName |
View a.hs
parseExprControl = | |
do { | |
label <- try (do { l <- p_name; p_eq [Spec ":"]; return l}) | |
; e <- parseExprControl | |
; return (Label label e) | |
} | |
<|> do { | |
try (p_eq [Spec "def"]) | |
; name <- p_name | |
; p_eq [Spec "="] |
View IOFrontend.hs
module IOFrontend where | |
import qualified Control.Monad.IO.Class as MIO | |
import qualified Data.Aeson as A | |
import qualified Data.Attoparsec as AP | |
import qualified Data.ByteString.Lazy as BSL | |
import qualified Data.Enumerator as E | |
import qualified Data.Enumerator.Binary as EB | |
import qualified Data.Enumerator.List as EL | |
import qualified GHC.IO.Handle as GIO |
View gist:2872656
KBD RU2 "Russian Phonetic" | |
COPYRIGHT "(c) 2011 " | |
COMPANY "Max" | |
LOCALEID "00000419" | |
VERSION 1.0 |
OlderNewer