luite

/*
StgRec [
( Main.listAppend,StgRhsClosure CostCentreStack StgBinderInfo [] ReEntrant SRT [ds,l2]
  ( StgCase
    ( StgApp ds []
    )
    UniqSet UniqSet wild SRT Alg Main.List [
    ( DataAlt Main.Cons,[a,l1],[True,True],StgLet
      ( StgNonRec sat_s1Dy
        ( StgRhsClosure CostCentreStack StgBinderInfo [l1,l2] Updatable SRT []

luite

/*
StgRec [
( Main.listAppend,StgRhsClosure CostCentreStack StgBinderInfo [] ReEntrant SRT [ds,l2]
  ( StgCase
    ( StgApp ds []
    )
    UniqSet UniqSet wild SRT Alg Main.List [
    ( DataAlt Main.Cons,[a,l1],[True,True],StgLet
      ( StgNonRec sat_s1OT
        ( StgRhsClosure CostCentreStack StgBinderInfo [l1,l2] Updatable SRT []

luite

/*
StgRec [
( Fibs.$wfib,StgRhsClosure CostCentreStack StgBinderInfo [] ReEntrant SRT [ww]
  ( StgCase
    ( StgApp ww []
    )
    UniqSet UniqSet ds SRT Prim GHC.Prim.Int# [
    ( DEFAULT,[],[],StgCase
      ( StgOpApp
        ( StgPrimOp IntSubOp

luite

/*
StgRec [
( Main.listAppend,StgRhsClosure CostCentreStack StgBinderInfo [] ReEntrant SRT [ds,l2]
  ( StgCase
    ( StgApp ds []
    )
    UniqSet UniqSet wild SRT Alg Main.List [
    ( DataAlt Main.Cons,[a,l1],[True,True],StgLet
      ( StgNonRec sat_s1Pj
        ( StgRhsClosure CostCentreStack StgBinderInfo [l1,l2] Updatable SRT []

luite

#!/usr/bin/env runhaskell
module Main where

import System.Process
import System.Environment
import Distribution.Simple.GHC
import Distribution.Verbosity
import Data.List (nub, isPrefixOf)
import Distribution.Simple.PackageIndex
import Distribution.InstalledPackageInfo

luite

module Handler.Root where

import Import

-- This is a handler function for the GET request method on the RootR
-- resource pattern. All of your resource patterns are defined in
-- config/routes
--
-- The majority of the code you will write in Yesod lives in these handler
-- functions. You can spread them across multiple files if you are so