aluink

import Ember from 'ember';
import $ from 'jquery';

const GOOGLE_KEY = 'AIzaSyCjBOhlC7914uPrWPffPIHZO8mTzcgtkow';

export default Ember.Controller.extend({
  appName: 'Ember Twiddle',
  output: "output is here",
  actions: {
    async go() {

aluink

foo@0.0.0 D:\code\foo
+-- broccoli-asset-rev@2.4.2
| +-- broccoli-asset-rewrite@1.0.11
| +-- broccoli-filter@1.2.3
| | +-- broccoli-kitchen-sink-helpers@0.2.9
| | | `-- glob@5.0.15
| | |   +-- inflight@1.0.4
| | |   | `-- wrappy@1.0.1
| | |   +-- inherits@2.0.1
| | |   +-- minimatch@3.0.0

aluink

Keybase proof

I hereby claim:

• I am aluink on github.
• I am aluink (https://keybase.io/aluink) on keybase.
• I have a public key whose fingerprint is F4BC 9778 05A2 E0A9 893F 32C4 868C BB95 A4AF A681

To claim this, I am signing this object:

aluink

merge :: Ord a => [a] -> [a] -> [a]
merge [] l2 = l2
merge l1 [] = l1
merge xx@(x:xs) yy@(y:ys) = if x < y then x : merge xs yy
                                     else y : merge xx ys

aluink

import Data.List

f :: (Ord a,Num a) => [a] -> Bool
f lst = (\y -> elem y $ map sum $ subsequences $ [ x | x <- lst, x /= y ]) $ maximum lst

aluink

//How it started
Type [] col = getCol();
for(int i = 0;i < col.length;i++){
  Type obj = col[i];
  //Use obj
}

//Enter untyped collections
//This is worse than before, IMO
//since you blindly cast to Type

aluink

import Data.FileStore.Git
import Data.FileStore.Types

main :: IO ()
main = do
    initialize fs
    save fs "testfile" a "some stuff" "some data"
  where
    fs = gitFileStore "./testdir"
    a  = Author "eric" "email"

aluink

A web handler threw an exception. Details:
resources\tmpUploads\snap-4820: MoveFileEx "resources\\tmpUploads\\snap-4820" "cpackages\\yackage-0.3.0.tar.gz": permission denied (The process cannot access the file because it is being used by another process.)

aluink

store :: FilePath -> B.ByteString -> String -> String -> IO ()
store tfp bn pn pv = do
    de <- doesDirectoryExist pnd
    when de $ removeDirectoryRecursive pnd
    Tar.unpack packageDir . Tar.read . GZip.decompress =<< LBS.readFile tfp
    renameFile tfp $ cpackageDir ++ (T.unpack $ decodeUtf8 bn) 
  where
    pnd = packageDir ++ pn ++ [pathSeparator]

aluink

------------------------------------------------------------------------------
-- | Processes each file upload in storeUploadedFile
copyUploadedFile :: MonadSnap m 
                 => (PartInfo, Either PolicyViolationException FilePath) 
                 -> m UploadInfo
copyUploadedFile (pif, efn) = either l r efn
  where
    l e = do logError $ B.pack $ show e 
             return $ UploadError "unknown upload error"
    r tfp = case (partFileName pif) of